Capture the Power of the Internet

home *** CD-ROM | disk | FTP | other *** search
/ Capture the Power of the Internet / Capture the Power of the Internet.iso / mac / MacFiles / System / Calculators / mathpad.sit / MathPad 2.5.2 / Examples / pulse amp < prev next >
MacBinary | 1996-04-02 | 2.3 KB | [TEXT/MPad]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Tue Apr 2 15:41:34 1996, modified Tue Apr 2 15:41:34 1996, creator 'MPad', type ASCII, 1568 bytes "pulse amp" , at 0x6a0 494 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPad]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 70 75 6c 73 65 20 | 61 6d 70 00 00 00 00 00 |..pulse |amp.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 61 | 64 00 00 00 00 00 00 00 |.TEXTMPa|d.......|
|00000050| 00 00 00 00 00 06 20 00 | 00 01 ee ad 87 41 7e ad |...... .|.....A~.|
|00000060| 87 41 7e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.A~.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 76 a9 00 00 |........|....v...|
|00000080| 2d 2d 20 43 61 6c 63 75 | 6c 61 74 65 20 61 6e 20 |-- Calcu|late an |
|00000090| 61 6d 70 6c 69 66 69 65 | 72 20 6f 75 74 70 75 74 |amplifie|r output|
|000000a0| 20 70 75 6c 73 65 20 73 | 68 61 70 65 2e 0d 2d 2d | pulse s|hape..--|
|000000b0| 20 52 65 71 75 69 72 65 | 73 20 58 46 75 6e 20 22 | Require|s XFun "|
|000000c0| 66 66 74 22 2e 0d 0d 64 | 65 63 61 79 20 3d 20 31 |fft"...d|ecay = 1|
|000000d0| 75 20 20 20 20 20 2d 2d | 20 69 6e 70 75 74 20 65 |u     --| input e|
|000000e0| 78 70 6f 6e 65 6e 74 69 | 61 6c 20 70 75 6c 73 65 |xponenti|al pulse|
|000000f0| 20 64 65 63 61 79 20 74 | 69 6d 65 0d 62 77 31 20 | decay t|ime.bw1 |
|00000100| 3d 20 32 30 30 4b 20 20 | 20 20 20 2d 2d 20 62 61 |= 200K  |   -- ba|
|00000110| 6e 64 77 69 64 74 68 20 | 6f 66 20 31 73 74 20 61 |ndwidth |of 1st a|
|00000120| 6d 70 6c 69 66 69 65 72 | 20 73 74 61 67 65 0d 62 |mplifier| stage.b|
|00000130| 77 32 20 3d 20 31 35 30 | 4b 20 20 20 20 20 2d 2d |w2 = 150|K     --|
|00000140| 20 62 61 6e 64 77 69 64 | 74 68 20 6f 66 20 32 6e | bandwid|th of 2n|
|00000150| 64 20 61 6d 70 6c 69 66 | 69 65 72 20 73 74 61 67 |d amplif|ier stag|
|00000160| 65 0d 0d 74 6d 61 78 20 | 3d 20 38 75 20 20 20 20 |e..tmax |= 8u    |
|00000170| 20 20 2d 2d 20 74 69 6d | 65 20 73 63 61 6c 65 0d |  -- tim|e scale.|
|00000180| 6e 73 61 6d 70 20 3d 20 | 36 34 20 20 20 20 20 2d |nsamp = |64     -|
|00000190| 2d 20 6e 75 6d 62 65 72 | 20 6f 66 20 73 61 6d 70 |- number| of samp|
|000001a0| 6c 65 73 20 74 6f 20 75 | 73 65 20 69 6e 20 74 72 |les to u|se in tr|
|000001b0| 61 6e 73 66 6f 72 6d 0d | 0d 79 28 74 29 20 3d 20 |ansform.|.y(t) = |
|000001c0| 65 78 70 28 2d 74 2f 64 | 65 63 61 79 29 20 2d 2d |exp(-t/d|ecay) --|
|000001d0| 20 69 6e 70 75 74 20 70 | 75 6c 73 65 0d 0d 58 6d | input p|ulse..Xm|
|000001e0| 69 6e 3d 30 3b 20 58 6d | 61 78 3d 74 6d 61 78 2f |in=0; Xm|ax=tmax/|
|000001f0| 31 75 3b 20 74 20 3d 20 | 58 2a 31 75 3b 20 58 6c |1u; t = |X*1u; Xl|
|00000200| 61 62 65 6c 3d 22 b5 73 | 65 63 22 0d 70 6c 6f 74 |abel=".s|ec".plot|
|00000210| 6c 69 6e 65 20 79 28 74 | 29 0d 0d 6e 65 77 61 78 |line y(t|)..newax|
|00000220| 69 73 0d 64 74 3d 74 6d | 61 78 2f 28 6e 73 61 6d |is.dt=tm|ax/(nsam|
|00000230| 70 2d 31 29 0d 79 73 5b | 69 5d 3d 7b 79 28 28 69 |p-1).ys[|i]={y((i|
|00000240| 2d 31 29 2a 64 74 29 2c | 30 7d 20 2d 2d 20 73 61 |-1)*dt),|0} -- sa|
|00000250| 6d 70 6c 65 20 74 68 65 | 20 69 6e 70 75 74 20 74 |mple the| input t|
|00000260| 6f 20 67 65 74 20 61 20 | 63 6f 6d 70 6c 65 78 20 |o get a |complex |
|00000270| 74 69 6d 65 20 73 65 72 | 69 65 73 0d 66 66 74 28 |time ser|ies.fft(|
|00000280| 79 73 5b 3a 6e 73 61 6d | 70 5d 29 3a 3b 20 20 20 |ys[:nsam|p]):;   |
|00000290| 20 20 2d 2d 20 74 72 61 | 6e 73 66 6f 72 6d 20 74 |  -- tra|nsform t|
|000002a0| 68 65 20 69 6e 70 75 74 | 20 73 69 67 6e 61 6c 20 |he input| signal |
|000002b0| 74 6f 20 66 72 65 71 20 | 64 6f 6d 61 69 6e 0d 66 |to freq |domain.f|
|000002c0| 6d 61 78 3d 2e 35 2f 64 | 74 3b 20 20 66 6d 61 78 |max=.5/d|t;  fmax|
|000002d0| 3a 33 2e 39 34 65 36 3b | 20 2d 2d 20 68 69 67 68 |:3.94e6;| -- high|
|000002e0| 65 73 74 20 66 72 65 71 | 20 75 73 65 64 20 69 6e |est freq| used in|
|000002f0| 20 6d 6f 64 65 6c 0d 0d | 48 28 66 2c 62 77 29 20 | model..|H(f,bw) |
|00000300| 3d 20 43 64 69 76 28 7b | 31 2c 30 7d 2c 7b 31 2c |= Cdiv({|1,0},{1,|
|00000310| 66 2f 62 77 7d 29 20 2d | 2d 20 66 72 65 71 20 72 |f/bw}) -|- freq r|
|00000320| 65 73 70 6f 6e 73 65 20 | 6f 66 20 61 20 73 69 6e |esponse |of a sin|
|00000330| 67 6c 65 20 52 43 20 6c | 6f 77 70 61 73 73 0d 66 |gle RC l|owpass.f|
|00000340| 72 65 71 28 69 29 20 3d | 20 28 69 2d 31 29 2a 66 |req(i) =| (i-1)*f|
|00000350| 6d 61 78 2f 28 6e 73 61 | 6d 70 2f 32 2b 31 29 20 |max/(nsa|mp/2+1) |
|00000360| 20 0d 61 6d 70 28 62 77 | 29 5b 69 5d 20 3d 20 48 | .amp(bw|)[i] = H|
|00000370| 28 66 72 65 71 28 69 29 | 2c 62 77 29 20 20 2d 2d |(freq(i)|,bw)  --|
|00000380| 20 72 65 73 70 20 61 74 | 20 64 69 73 63 72 65 74 | resp at| discret|
|00000390| 65 20 66 72 65 71 73 20 | 6f 66 20 74 68 65 20 74 |e freqs |of the t|
|000003a0| 72 61 6e 73 66 6f 72 6d | 0d 0d 73 74 61 67 65 31 |ransform|..stage1|
|000003b0| 3a 3d 63 6f 6e 76 6f 6c | 76 65 28 74 72 61 6e 73 |:=convol|ve(trans|
|000003c0| 66 6f 72 6d 2c 20 20 2d | 2d 20 63 6f 6e 76 6f 6c |form,  -|- convol|
|000003d0| 76 65 20 74 72 61 6e 73 | 66 6f 72 6d 20 6f 66 20 |ve trans|form of |
|000003e0| 69 6e 70 75 74 20 70 75 | 6c 73 65 0d 20 20 20 20 |input pu|lse.    |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 6d 70 |        |     amp|
|00000400| 28 62 77 31 29 29 3a 3b | 20 2d 2d 20 77 69 74 68 |(bw1)):;| -- with|
|00000410| 20 31 73 74 20 61 6d 70 | 6c 69 66 69 65 72 20 72 | 1st amp|lifier r|
|00000420| 65 73 70 6f 6e 73 65 0d | 69 6e 76 66 66 74 28 73 |esponse.|invfft(s|
|00000430| 74 61 67 65 31 29 3a 3b | 20 20 20 20 20 20 20 20 |tage1):;|        |
|00000440| 20 20 20 20 20 2d 2d 20 | 69 6e 76 65 72 74 20 74 |     -- |invert t|
|00000450| 6f 20 67 65 74 20 74 69 | 6d 65 20 73 65 72 69 65 |o get ti|me serie|
|00000460| 73 0d 70 6c 6f 74 6c 69 | 6e 65 20 72 65 61 6c 70 |s.plotli|ne realp|
|00000470| 61 72 74 28 74 72 61 6e | 73 66 6f 72 6d 29 20 2d |art(tran|sform) -|
|00000480| 2d 20 73 68 6f 77 20 31 | 73 74 20 73 74 61 67 65 |- show 1|st stage|
|00000490| 20 6f 75 74 70 75 74 20 | 70 75 6c 73 65 20 73 68 | output |pulse sh|
|000004a0| 61 70 65 0d 0d 69 6e 76 | 66 66 74 28 63 6f 6e 76 |ape..inv|fft(conv|
|000004b0| 6f 6c 76 65 28 73 74 61 | 67 65 31 2c 20 20 20 20 |olve(sta|ge1,    |
|000004c0| 20 20 2d 2d 20 63 6f 6e | 76 6f 6c 76 65 20 31 73 |  -- con|volve 1s|
|000004d0| 74 20 73 74 61 67 65 20 | 6f 75 74 70 75 74 20 66 |t stage |output f|
|000004e0| 72 65 71 73 0d 20 20 20 | 20 20 20 20 20 20 20 20 |reqs.   |        |
|000004f0| 20 20 20 20 20 61 6d 70 | 28 62 77 32 29 29 29 3a |     amp|(bw2))):|
|00000500| 3b 20 2d 2d 20 77 69 74 | 68 20 32 6e 64 20 61 6d |; -- wit|h 2nd am|
|00000510| 70 6c 69 66 69 65 72 20 | 72 65 73 70 6f 6e 73 65 |plifier |response|
|00000520| 0d 70 6c 6f 74 6c 69 6e | 65 20 72 65 61 6c 70 61 |.plotlin|e realpa|
|00000530| 72 74 28 74 72 61 6e 73 | 66 6f 72 6d 29 20 2d 2d |rt(trans|form) --|
|00000540| 20 73 68 6f 77 20 32 6e | 64 20 73 74 61 67 65 20 | show 2n|d stage |
|00000550| 6f 75 74 70 75 74 20 70 | 75 6c 73 65 20 73 68 61 |output p|ulse sha|
|00000560| 70 65 0d 0d 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |pe...---|--------|
|00000570| 2d 20 75 74 69 6c 69 74 | 79 20 72 6f 75 74 69 6e |- utilit|y routin|
|00000580| 65 73 20 66 6f 72 20 63 | 6f 6d 70 6c 65 78 20 6e |es for c|omplex n|
|00000590| 75 6d 62 65 72 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |umbers -|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 0d | 43 6d 75 6c 74 28 41 2c |-------.|Cmult(A,|
|000005b0| 42 29 20 3d 20 7b 41 5b | 31 5d 2a 42 5b 31 5d 2d |B) = {A[|1]*B[1]-|
|000005c0| 41 5b 32 5d 2a 42 5b 32 | 5d 2c 41 5b 32 5d 2a 42 |A[2]*B[2|],A[2]*B|
|000005d0| 5b 31 5d 2b 41 5b 31 5d | 2a 42 5b 32 5d 7d 0d 43 |[1]+A[1]|*B[2]}.C|
|000005e0| 64 69 76 28 41 2c 42 29 | 3d 7b 28 42 5b 31 5d 2a |div(A,B)|={(B[1]*|
|000005f0| 41 5b 31 5d 2b 42 5b 32 | 5d 2a 41 5b 32 5d 29 2f |A[1]+B[2|]*A[2])/|
|00000600| 28 42 5b 31 5d 5e 32 2b | 42 5b 32 5d 5e 32 29 2c |(B[1]^2+|B[2]^2),|
|00000610| 0d 20 20 20 20 20 20 20 | 20 20 28 42 5b 31 5d 2a |.       |  (B[1]*|
|00000620| 41 5b 32 5d 2d 42 5b 32 | 5d 2a 41 5b 31 5d 29 2f |A[2]-B[2|]*A[1])/|
|00000630| 28 42 5b 31 5d 5e 32 2b | 42 5b 32 5d 5e 32 29 7d |(B[1]^2+|B[2]^2)}|
|00000640| 0d 63 6f 6e 76 6f 6c 76 | 65 28 41 2c 42 29 5b 69 |.convolv|e(A,B)[i|
|00000650| 2c 6a 5d 20 3d 20 43 6d | 75 6c 74 28 41 5b 69 5d |,j] = Cm|ult(A[i]|
|00000660| 2c 42 5b 69 5d 29 5b 6a | 5d 20 64 69 6d 5b 63 6f |,B[i])[j|] dim[co|
|00000670| 75 6e 74 28 41 29 2c 32 | 5d 0d 72 65 61 6c 70 61 |unt(A),2|].realpa|
|00000680| 72 74 28 41 29 5b 69 5d | 20 3d 20 41 5b 69 2c 31 |rt(A)[i]| = A[i,1|
|00000690| 5d 20 64 69 6d 5b 63 6f | 75 6e 74 28 41 29 5d 0d |] dim[co|unt(A)].|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 7c | 00 00 00 7c 00 00 00 72 |.......||...|...r|
|00000710| ea 51 f9 a9 09 b2 98 42 | 4a 98 cd 60 f6 43 fa 8a |.Q.....B|J..`.C..|
|00000720| 37 d3 d0 4e d1 87 02 22 | 80 91 27 12 d8 0c 0a 50 |7..N..."|..'....P|
|00000730| 09 70 75 6c 73 65 20 61 | 6d 70 02 00 00 00 54 45 |.pulse a|mp....TE|
|00000740| 58 54 4d 50 61 64 01 00 | 00 9c 00 c0 00 00 00 00 |XTMPad..|........|
|00000750| 00 00 54 45 58 54 4d 50 | 61 64 01 00 00 9c 00 c0 |..TEXTMP|ad......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 ac 27 0b 25 00 00 | 06 20 00 00 01 ee 20 05 |...'.%..|. .... .|
|00000780| 01 88 6c 72 5f 61 6d 05 | 01 88 05 05 05 05 64 13 |..lr_am.|......d.|
|00000790| 60 82 22 78 02 ae 6e 0c | 69 00 75 02 cd 3c 0c 69 |`."x..n.|i.u..<.i|
|000007a0| 02 76 02 83 4e 4d 10 38 | 0c b3 52 5c 80 0f ff 60 |.v..NM.8|..R\...`|
|000007b0| 13 30 38 01 5a 0f ff 56 | 99 13 10 38 01 2f 4e 0f |.08.Z..V|...8./N.|
|000007c0| ff 4a 0c 38 1a 10 01 2f | 67 38 08 38 1a 0b 22 67 |.J.8.../|g8.8.."g|
|000007d0| 34 20 4f f2 80 8b 05 f3 | 27 30 17 2e 48 5c 1f 18 |4 O.....|'0..H\..|
|000007e0| cc 5c 2d 3f 18 67 10 5c | 3f 38 9d 5c 1f 38 62 bd |.\-?.g.\|?8.\.8b.|
|000007f0| 13 60 0e 64 d1 77 4d 70 | 03 78 e1 13 0f 29 0c 78 |.`.d.wMp|.x...).x|
|00000800| 00 00 00 20 01 00 00 03 | 00 01 3f ff 80 00 00 00 |... ....|..?.....|
|00000810| 00 00 00 00 01 be 01 87 | 00 01 00 27 00 d9 01 4f |........|...'...O|
|00000820| 01 b5 00 27 00 00 00 3c | 3e a9 e1 54 3e e4 cc cd |...'...<|>..T>...|
|00000830| 06 01 00 06 73 74 61 67 | 65 31 3f 01 28 fe 3e 97 |....stag|e1?.(.>.|
|00000840| a8 a5 06 01 00 06 73 74 | 61 67 65 32 3e b3 51 67 |......st|age2>.Qg|
|00000850| 3f 5f 33 33 0b 01 00 0c | 69 6e 70 75 74 20 70 75 |?_33....|input pu|
|00000860| 6c 73 65 00 00 00 00 14 | 00 00 06 4d 6f 6e 61 63 |lse.....|...Monac|
|00000870| 6f 01 39 06 4d 6f 6e 61 | 63 6f 01 39 00 00 01 00 |o.9.Mona|co.9....|
|00000880| 00 00 01 7c 00 00 00 7c | 00 00 00 72 01 49 25 f8 |...|...||...r.I%.|
|00000890| 0d f6 00 00 00 1c 00 5a | 00 02 50 52 65 66 00 00 |.......Z|..PRef..|
|000008a0| 00 1a 4c 42 4c 53 00 00 | 00 26 53 54 52 23 00 00 |..LBLS..|.&STR#..|
|000008b0| 00 32 00 80 ff ff 00 00 | 00 00 01 4c 18 08 00 80 |.2......|...L....|
|000008c0| 00 00 00 00 00 24 00 00 | 00 00 00 81 00 0c 00 00 |.....$..|........|
|000008d0| 00 64 01 4c 17 e4 0b 70 | 6c 6f 74 20 6c 61 62 65 |.d.L...p|lot labe|
|000008e0| 6c 73 0b 66 6f 6e 74 20 | 26 20 73 69 7a 65 00 00 |ls.font |& size..|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+